home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / util / wb / mainprefs.lha / mainprefs / MainPrefs.install < prev    next >
Text File  |  2000-09-01  |  2KB  |  81 lines
  1. (complete 0)
  2.  
  3. (
  4.  set VAR_LANGUAGE
  5.  (
  6.   askchoice
  7.    (prompt  "Select your preferred language:\nWählen Sie Ihre bevorzugte Sprache:\n")
  8.    (help    "Here you can choose the language of the documentation and further installation.\n\nHier können sie die Sprache der Anleitung und der weiteren Installation wählen.")
  9.    (choices "English"
  10.             "Deutsch"
  11.    (default 0)
  12.   )
  13.  )
  14. )
  15.  
  16. (set TXT_INTRO        "\nMainPrefs will now be installed.\n\nIf you do not like this program, just remove its drawer to deinstall.\n")
  17. (set TXT_WRONGOS      "Sorry, this program needs OS 3.5 because it uses the reaction GUI.\n")
  18. (set TXT_PATH         "In which directory shall the program directory be created?")
  19. (set TXT_PATH_HELP    "\nAn own directory named "MainPrefs" will be created in the given directory.\nYou can remove this directory later to deinstall MainPrefs.\n")
  20. (set TXT_MAIN         "Copying Program files ...")
  21. (set TXT_MAIN_HELP    "\nAll the files that are needed are copied.\n")
  22. (set TXT_FILE_DOC     "Docs/MainPrefsE.guide")
  23.  
  24. (
  25.  if (= VAR_LANGUAGE 1) (
  26.   (set TXT_INTRO        "\nMainPrefs wird nun installiert.\n\nWenn Ihnen dieses Programm nicht gefällt, löschen sie zur Deinstallation einfach das Verzeichnis.\n")
  27.   (set TXT_WRONGOS      "Leider benötigt dieses Programm OS 3.5, da es das Reaction GUI nutzt.\n")
  28.   (set TXT_PATH         "In welchem Verzeichnis  soll das Programmverzeichnis angelegt werden?")
  29.   (set TXT_PATH_HELP    "\nEin eigenes Verzeichnis mit dem Namen "MainPrefs" wird im angegebenen Verzeichnis erzeugt.\nSie können dieses Verzeichnis später zur Deinstallation von MainPrefs löschen.\n")
  30.   (set TXT_MAIN         "Kopiere Programmdateien ...")
  31.   (set TXT_MAIN_HELP    "\nAlle nötigen Dateien werden kopiert.\n")
  32.   (set TXT_FILE_DOC     "Docs/MainPrefsD.guide")
  33.  )
  34. )
  35.  
  36.  
  37. (set VAR_OS (/ (getversion) 65536))
  38. (if (< VAR_OS 40) (message TXT_WRONGOS))
  39.  
  40. (complete 10)
  41.  
  42. (message TXT_INTRO)
  43.  
  44. (complete 20)
  45.  
  46. (
  47.  set VAR_DEST(
  48.    askdir (prompt  TXT_PATH)
  49.           (help    TXT_PATH_HELP)
  50.           (default @default-dest)
  51.   )
  52. )
  53. (set VAR_DEST_MP (tackon VAR_DEST "MainPrefs"))
  54. (set @default-dest VAR_DEST_MP)
  55.  
  56. (complete 40)
  57.  
  58. (
  59.  copyfiles (prompt TXT_MAIN)
  60.            (source @execute-dir)
  61.            (dest   VAR_DEST_MP)
  62.            (all)
  63. )
  64.  
  65. (complete 80)
  66.  
  67. (
  68.  copyfiles (source TXT_FILE_DOC)
  69.            (dest   VAR_DEST_MP)
  70.            (newname "MainPrefs.guide")
  71.            (infos)
  72. )
  73.  
  74. (
  75.  copyfiles (source "/MainPrefs.info")
  76.            (dest   VAR_DEST)
  77. )
  78.  
  79.  
  80. (complete 100)
  81.